home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
util
/
wb
/
muBackdrop10.lha
/
muBackdrop
/
Install
< prev
next >
Wrap
Text File
|
1995-04-29
|
4KB
|
193 lines
; $VER: Install 1.0 (04.14.95)
; Script to install Release 1.0 muBackdrop
(complete 0)
(set @default-dest "sys:c/")
(set target @default-dest)
;********************************************************************
(set #Yes-text
(cat "Yes"
))
(set #No-text
(cat "No"
))
(set #Overwrite
(cat "Replace"
))
(set #Abort
(cat "Abort"
))
;********************************************************************
(set #warn-kickstart-text
(cat "\nBAD VERSION OF KICKSTART\n\n"
"muBackdrop requires KickStart 2.0 (V37) or higher. It will not work on earlier versions.\n"
"You currently are running KickStart V%ld.\n\n"
"Continue with installation?"
))
;********************************************************************
(set #docs-install-text
(cat "Installing documentation"
))
(set #docs-query-text
(cat "\nWould you like to install documentation for muBackdrop?"
))
(set #docs-help-text
(cat ""
))
(set #docs-query-dir-text
(cat "Where to install documentation?"
))
(set #docs-query-dir-help
(cat @askdir-help
))
;********************************************************************
(set #path-text
(cat "Select directory to install muBackdrop into"
))
(set #path-help
(cat @askdir-help
))
;********************************************************************
(set #Overwrite-text
(cat "\nThere is a version of muBackdrop installed already. "
"Would you like to replace it with this version?"
))
(set #Overwrite-abort-text
(cat "Installation has been aborted, old version remains untouched."
))
;********************************************************************
(set #MatrixLib-text
(cat "\nInstalling matrix.library\n\nCopyright ©1992-95 David Swasbrook"
))
(set #MatrixLib-help
(cat "This will copy matrix.library into your LIBS: directory.\nCopyright ©1992-95 David Swasbrook\n\n"
@copylib-help
))
;********************************************************************
(set @default-backdrop-path
(cat "HOME:.backdrops/"
))
(set #backdrop-path-text
(cat "Please enter the path to where the workbench backdrop files should be stored.\n"
"If you are running a multiuser system then it is suggested that these files be stored in the users "
"home directory."
))
(set #backdrop-path-help
(cat "Enter the path to where you would like the workbench ".backdrop" files stored."
))
;********************************************************************
;********************************************************************
;**** END OF TEXT
;********************************************************************
;********************************
;**** CHECK THE KICKSTART VERSION
;****
(set ver (/ (getversion) 65536) )
(if (< ver 37) (
(set warning (#warn-kickstart-text ver) ) (message warning)
))
(complete 10)
(if (exists "bin:sys/" (noreq) )
(set target "bin:sys/" )
)
(set target
(askdir (prompt #path-text) (help #path-help) (default target) (newpath)
))
(complete 20)
(if (exists (tackon target "muBackdrop"))
(
(if(askbool (prompt #Overwrite-text) (help #Overwrite-text) (choices #Overwrite #Abort) )
(
(copyfiles (source "muBackdrop") (dest target) )
)
(
(abort #Overwrite-abort-text )
))
)
(
(copyfiles (source "muBackdrop") (dest target) )
(complete 60)
(tooltype (dest (tackon target "muBackdrop"))
(noposition)
)
))
(complete 50)
(copylib (prompt #MatrixLib-text) (help #MatrixLib-help) (source "matrix.library") (dest "LIBS:") (confirm) )
(complete 60)
(set backdrop_file_path
(askstring (prompt #backdrop-path-text) (help #backdrop-path-help) (default @default-backdrop-path)
))
(set to-be-added-to-startup
(cat "RUN >NIL: " (tackon target "muBackdrop") " \"" backdrop_file_path "\""
))
(startup @app-name
(command to-be-added-to-startup)
(prompt "Installer will modify your S:User-Startup file. "
"The following lines will be appended to it:\n\n"
to-be-added-to-startup)
(help " Installer needs to make indicated modifications to "
"your user startup file to make sure that everything is "
"correctly set up to run the " @app-name ".\n"
" You should make modifications later by hand "
"if you skip this part."))
(complete 80) (working #docs-install-text)
(if(= (askbool (prompt #docs-query-text) (help #docs-query-help)) 1)
(
(set docs-target (askdir (prompt #docs-query-dir-text) (help #docs-query-dir-help) (default "SYS:")))
(copyfiles (source "muBackdrop.guide") (dest docs-target ) (infos) )
)
)
(set @default-dest target)
(complete 100)